#! /usr/bin/perl -w

## 说明函数应该如何调用
use strict;

sub s1 {
    print "[@_]\n";
}

s1;             ## OK, 已经先声明
s1 "test 1";    ## OK, 已经先声明
s1 ("test 1");  ## OK, 圆括号

## ------------------------------ 

&s2;            ## OK, 用&来指示函数
#&s2 "test 2";  ## 错误, 需要先声明
s2 ("test 2");  ## OK, 圆括号

sub s2 {
    print "[@_]\n";
}
